home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Customer.dmd < prev    next >
Text File  |  1997-11-20  |  1KB  |  52 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Customer.dmd - Mugs Sample Application
  4. //
  5. //  Customer Data Module for the Customer data entry form.
  6. //
  7. //  Dependencies: MUGS.CDM
  8. //                COUTNRY.DBF
  9. //                CUSTOMER.DBF
  10. //                STATE.DBF
  11. //
  12. //  Visual dBASE Samples Group
  13. //
  14. //  $Revision:   1.4  $
  15. //
  16. //  Copyright (c) 1997, Borland International, Inc. 
  17. //  All rights reserved.
  18. //
  19. //---------------------------------------------------------------
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 10/09/97
  23. //
  24. class CustomerDataModule of MUGSDATAMODULE from "mugs.cdm"
  25.  
  26.    this.CUSTOMER1 = new QUERY()
  27.    this.CUSTOMER1.parent = this
  28.    with (this.CUSTOMER1)
  29.       left = 2
  30.       top = 3
  31.       database = form.dbmugs
  32.       sql = 'SELECT * FROM "CUSTOMER.DBF"'
  33.       active = true
  34.    endwith
  35.  
  36.  
  37.    with (this.CUSTOMER1.rowset)
  38.       fields["Country ID"].lookupSQL = 'SELECT country."Country ID", country FROM "country.dbf" country'
  39.    endwith 
  40.  
  41.    this.STATE1 = new QUERY()
  42.    this.STATE1.parent = this
  43.    with (this.STATE1)
  44.       left = 10
  45.       top = 3
  46.       database = form.dbmugs
  47.       sql = 'SELECT * FROM "STATE.DBF"'
  48.       active = true
  49.    endwith 
  50.       
  51. endclass
  52.